home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 January / Macworld (1997-01).dmg / QuarkImmedia™1.01 Demo / Power Macintosh Demo / QuarkXPress - Int'l English / QuarkXPress™ Demo / QuarkXPress™ 3.32r5 Demo / QuarkXPress™ 3.32r5 Demo.rsrc / PSHD_1008 < prev    next >
Text File  |  1996-11-01  |  781b  |  17 lines
  1. /setscr/setscreen load def
  2. /setscreen{xpdctopn/usrscr X setangl
  3.  [/setscr0 load/exec load/usrscr load/exec load nf{/neg load}if]cvx/setscr load end exec}B
  4. /crntscr/currentscreen load def
  5. /currentscreen{xpdctopn crntscr currentdict/usrscr known
  6.  {pop getangl/usrscr load}if end}B
  7. /currentcolorscreen where{pop
  8. /usrstr(usrscrx)def
  9. /setcscr/setcolorscreen load def
  10. /setcolorscreen{xpdctopn 3 -1 0{usrstr dup length 1 sub 3 -1 roll 48 add put
  11.  usrstr cvn X setangl[/setscr0 load/exec load usrstr cvn load/exec load
  12.  nf{/neg load}if]cvx 12 3 roll}for/setcscr load end exec}B
  13. /crntcscr/currentcolorscreen load def
  14. /currentcolorscreen{xpdctopn crntcscr currentdict/usrscr0 known
  15.  {3 -1 0{usrstr dup length 1 sub 3 -1 roll 48 add put pop getangl
  16.  usrstr cvn load 12 3 roll}for}if end}B}if
  17.